Imports System.Data.SqlClient
Imports System.Xml
Public Class dLogin

    Public Function ExisteUsuario(ByVal Usuario As String, ByVal Legajo As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pENombreUsuario", Usuario))
        Parametros.Add(New SqlParameter("@pElegajo", Legajo))
        Return dConexion.Consultar("STORE_TblUsuariosBuscaFiltrado", Parametros).Tables(0).Rows.Count <> 0
    End Function
    Public Function GrupoUsuario(ByVal Usuario As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pENombreUsuario", Usuario))
        Return dConexion.Consultar("STORE_TblUsuariosBuscaFiltrado", Parametros)
    End Function

    Public Function Ingreso(ByVal Usuario As String, ByVal Clave As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pENombreUsuario", Usuario))
        Parametros.Add(New SqlParameter("@pEClave", Clave))
        Return dConexion.Consultar("STORE_TblUsuariosExiste", Parametros).Tables(0).Rows.Count <> 0
    End Function
    Public Function InsertaUsuario(ByVal Legajo As Integer, ByVal Nombre As String, ByVal Clave As String, ByVal Tipo As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Parametros.Add(New SqlParameter("@pENombreUsuario", Nombre))
        Parametros.Add(New SqlParameter("@pEClave", Clave))
        Parametros.Add(New SqlParameter("@pEidTipousuario", Tipo))
        Return CapaDeDatos.dConexion.ABM("STORE_TblUsuariosAlta", Parametros)
    End Function
    Public Function ListarLogin(ByVal Logon As Integer, ByVal Legajo As Integer, ByVal Nombre As String, ByVal Clave As String, ByVal Tipo As Integer) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEIdUsuario", Logon))
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Parametros.Add(New SqlParameter("@pENombreUsuario", Nombre))
        Parametros.Add(New SqlParameter("@pEClave", Clave))
        Parametros.Add(New SqlParameter("@pEidTipousuario", Tipo))
        Return CapaDeDatos.dConexion.Consultar("STORE_TblUsuariosBuscaFiltrado", Parametros)
    End Function
    Public Function EliminarLogin(ByVal Logon As Integer, ByVal Legajo As Integer, ByVal TipoUsuario As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEIdUsuario", Logon))
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Parametros.Add(New SqlParameter("@pEidTipousuario", TipoUsuario))
        Return CapaDeDatos.dConexion.ABM("STORE_TblUsuariosEliminar", Parametros)
    End Function
    Public Function ModificaLogin(ByVal Logon As Integer, ByVal Legajo As Integer, ByVal Nombre As String, ByVal Clave As String, ByVal Tipo As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEIdUsuario", Logon))
        Parametros.Add(New SqlParameter("@pELegajo", Legajo))
        Parametros.Add(New SqlParameter("@pENombreUsuario", Nombre))
        Parametros.Add(New SqlParameter("@pEClave", Clave))
        Parametros.Add(New SqlParameter("@pEidTipousuario", Tipo))
        Return CapaDeDatos.dConexion.ABM("STORE_TblUsuariosModificar", Parametros)
    End Function
End Class
